(STATUS 2 1 2)

(DE HANOV (N ;; A B C K P)


  (SETQ K 1 P 1 ) (SETQQ A D B A C I)

  (REPEAT (SUB1 N) (SETQ P (* 2 P)))
  (WHILE (NEQ K 0)
    (WHILE (< K P) (SETQ K (* 2 K)) (ECH B C))
    (MOVE A B)
    (WHILE (ODDP K) (ECH A C) (SETQ K (QUO K 2)))
    (IF (= K 0) NIL
        (ECH B C) (IF BOO (INCR K)) (MOVE A B) (ECH A C))))
  
(DE MOVE (X Y) (PRINT 'MOVE 'FROM X 'TO Y))

(DF ECH (%L) (SETQ %X (CAAR %L) %Y (CAADR %L))
             (SET (CAR %L) %Y (CADR %L) %X))

(PROGN (STATUS 1 1 2) '(OK HANOV))